15700	NOIR:	0
15800		JRA 16,1(16)	; DUMMY ******
15900	
16000	SLEND:	0	;	SUBROUTINE SLEND
16100		MOVE 8,[8.0]	;INTEGER PWDS
16200		MOVE 7,SCM+=80	;C  TO FIND END POINTS OF STAVES
16300		MOVE 4,[4.0];COMMON/XRN/RN(2000),IT,POS,RA,NN,JB,RB,A,B,JMP,JK,C,
16400	;	1 DMAX,UMAX,AA,JMAX,X,Y,BB,RNX(1982)
16500	; 1/SCM/V(78),I,LCNT,STAFF,LIST(200),REND/PTR/PWDS(250),ITEM,LL,IS,IX
16600		SETZ 5,		;DO 1 K=1,ITEM
16700	SLN1:	MOVE 6,PTR(5)	;L=PWDS(K)
16800				;IF(RN(L+1).NE.8)GO TO 1
16900		CAME 8,XRN(6)	;C  FOUND A STAFF
17000		JRST SLN1X	;IF(RN(L+2).NE.STAFF)GO TO 1
17100		CAME 7,XRN+1(6)	;C GOT THE RIGHT ONE
17200		JRST SLN1X	;IF(IT)GO TO 2
17300		SKIPGE XRN+=2000	;POS=202
17400		JRST SLN2	;C NOW CHECK LEFT SIDE OF STAFF
17500		MOVE 15,[202.0]		;IF(RN(L).LT.4)RETURN
17600		CAML 4,XRN-1(6)	;P6 WASN'T MENTIONED - SO IT =200
17700		JRST SLN3
17800				;POS=RN(L+6)+2
17900		MOVE 15,XRN+5(6)	;IF(POS.EQ.2)POS=202
18000		FADR 15,[2.0]	;RETURN
18100		CAMN 15,[2.0]	;2 	POS=RN(L+3)-2.3
18200		MOVE 15,[202.0]		;RETURN
18300		JRST SLN3	;1	CONTINUE
18400	SLN2:	MOVE 15,XRN+2(6)	;END
18500		FSBR 15,[2.3]
18600	SLN3:	MOVEM 15,XRN+=2001
18700		JRA 16,(16)
18800	SLN1X:	AOS 5
18900		CAMGE 5,PTR+=250
19000		JRST SLN1
19100		JRA 16,(16)
19200	
19300	POSIT:	0	;	FUNCTION POSIT(V)
19400		MOVE 15,@(16)	;	COMMON/XRN/RN(4000)
19500		SKIPGE 15	;	DIMENSION POSNT(0/82)
19600		MOVNS 15	;	EQUIVALENCE (POSNT,RN(3801))
19700		MOVE 14,15	;	1,(A,RN(3884)),(K,RN(3885))
19800		FIXX(14)	;	IF(V)V=-V
19900	;  REREAD OR SOMETHING MAKES /1 C- 2/ GIVE A -2 FOR LAST NUM.!!!???
20000		JSA 16,AMOD	;	K=V
20100		JUMP 15		;	A=POSNT(K)
20200		JUMP [1.0]	;POSIT=A+(POSNT(K+1)-A)*AMOD(V,1.0)
20300	; TYPE  /2.3 -- FOR POSITION BETWEEN NTS 2 AND 3. ETC.
20400		MOVE 2,XRN+=3801(14)	;	END
20500		FSBR 2,XRN+=3800(14)
20600		FMPR 0,2
20700		FADR 0,XRN+=3800(14)
20800		JRA 16,1(16)
20900		END